﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class ProductosalmacenFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As ProductosalmacenBE
        Dim tmpProductosalmacen As ProductosalmacenBE = New ProductosalmacenBE()
        Try
            With tmpProductosalmacen
                .ClaProducto = convertDTFromDb.ConvertString(dr.Item("ClaProducto"))
                .Existencia = convertDTFromDb.convertDouble(dr.Item("Existencia"))
                .IdAlmacen = convertDTFromDb.ConvertString(dr.Item("IdAlmacen"))
                .IdRegistro = convertDTFromDb.convertInt32(dr.Item("IdRegistro"))
            End With
            Return tmpProductosalmacen
        Catch ex As Exception
            Throw
        Finally
            tmpProductosalmacen = Nothing
        End Try
    End Function
End Class
